/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / Obx / Mod / Calc

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 04 43 61 6c 63 00 00 | 00 00 00 00 00 00 00 00 |..Calc..|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 1c 29 00 | 00 01 3e ae 06 bf 7e ae |......).|..>...~.|
|00000060| 06 bf 8d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ef eb 00 00 |........|........|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 a6 |sc......|........|
|00000100| 1b 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |........|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 f4 1a |Desc....|........|
|00000160| 00 00 09 00 00 00 ec 1a | 00 00 00 00 00 00 00 82 |........|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 96 1a 00 00 |........|........|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 98 18 00 00 |sc......|........|
|000001f0| 0f 00 00 00 90 18 00 00 | 00 00 00 00 00 00 59 00 |........|......Y.|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 22 00 00 00 00 00 00 00 | 00 01 00 00 00 00 48 65 |".......|......He|
|00000240| 6c 76 65 74 69 63 61 00 | 7c be 01 00 00 00 00 00 |lvetica.||.......|
|00000250| 90 01 00 00 00 00 2d 18 | 00 00 ff 4d 4f 44 55 4c |......-.|...MODUL|
|00000260| 45 20 4f 62 78 43 61 6c | 63 3b 0d 0d 09 49 4d 50 |E ObxCal|c;...IMP|
|00000270| 4f 52 54 20 53 74 6f 72 | 65 73 2c 20 50 6f 72 74 |ORT Stor|es, Port|
|00000280| 73 2c 20 56 69 65 77 73 | 2c 20 50 72 6f 70 65 72 |s, Views|, Proper|
|00000290| 74 69 65 73 2c 20 43 6f | 6e 74 72 6f 6c 6c 65 72 |ties, Co|ntroller|
|000002a0| 73 2c 20 44 69 61 6c 6f | 67 2c 20 46 6f 6e 74 73 |s, Dialo|g, Fonts|
|000002b0| 2c 20 53 74 72 69 6e 67 | 73 3b 0d 0d 09 43 4f 4e |, String|s;...CON|
|000002c0| 53 54 20 6d 6d 20 3d 20 | 50 6f 72 74 73 2e 6d 6d |ST mm = |Ports.mm|
|000002d0| 3b 20 43 52 20 3d 20 30 | 44 58 3b 20 76 65 72 73 |; CR = 0|DX; vers|
|000002e0| 69 6f 6e 20 3d 20 30 3b | 0d 0d 09 54 59 50 45 0d |ion = 0;|...TYPE.|
|000002f0| 09 09 53 74 61 63 6b 20 | 3d 20 50 4f 49 4e 54 45 |..Stack |= POINTE|
|00000300| 52 20 54 4f 20 52 45 43 | 4f 52 44 0d 09 09 09 6e |R TO REC|ORD....n|
|00000310| 65 78 74 3a 20 53 74 61 | 63 6b 3b 0d 09 09 09 76 |ext: Sta|ck;....v|
|00000320| 61 6c 3a 20 4c 4f 4e 47 | 49 4e 54 0d 09 09 45 4e |al: LONG|INT...EN|
|00000330| 44 3b 0d 0d 09 09 56 69 | 65 77 20 3d 20 50 4f 49 |D;....Vi|ew = POI|
|00000340| 4e 54 45 52 20 54 4f 20 | 52 45 43 4f 52 44 20 28 |NTER TO |RECORD (|
|00000350| 56 69 65 77 73 2e 56 69 | 65 77 44 65 73 63 29 0d |Views.Vi|ewDesc).|
|00000360| 09 09 09 73 74 61 63 6b | 3a 20 53 74 61 63 6b 3b |...stack|: Stack;|
|00000370| 0d 09 09 09 65 64 69 74 | 4d 6f 64 65 2c 20 65 6e |....edit|Mode, en|
|00000380| 74 65 72 4d 6f 64 65 3a | 20 42 4f 4f 4c 45 41 4e |terMode:| BOOLEAN|
|00000390| 0d 09 09 45 4e 44 3b 0d | 0d 09 56 41 52 0d 09 09 |...END;.|..VAR...|
|000003a0| 66 6f 6e 74 3a 20 46 6f | 6e 74 73 2e 46 6f 6e 74 |font: Fo|nts.Font|
|000003b0| 3b 0d 09 09 6c 61 62 65 | 6c 73 3a 20 41 52 52 41 |;...labe|ls: ARRA|
|000003c0| 59 20 32 31 20 4f 46 20 | 43 48 41 52 3b 0d 0d 09 |Y 21 OF |CHAR;...|
|000003d0| 50 52 4f 43 45 44 55 52 | 45 20 4c 6f 63 61 74 65 |PROCEDUR|E Locate|
|000003e0| 46 69 65 6c 64 20 28 76 | 3a 20 56 69 65 77 3b 20 |Field (v|: View; |
|000003f0| 66 3a 20 56 69 65 77 73 | 2e 46 72 61 6d 65 3b 20 |f: Views|.Frame; |
|00000400| 78 2c 20 79 3a 20 4c 4f | 4e 47 49 4e 54 3b 20 56 |x, y: LO|NGINT; V|
|00000410| 41 52 20 69 2c 20 6a 3a | 20 49 4e 54 45 47 45 52 |AR i, j:| INTEGER|
|00000420| 3b 0d 09 09 09 09 09 09 | 09 09 09 09 09 56 41 52 |;.......|.....VAR|
|00000430| 20 76 61 6c 69 64 3a 20 | 42 4f 4f 4c 45 41 4e 29 | valid: |BOOLEAN)|
|00000440| 3b 0d 09 42 45 47 49 4e | 0d 09 09 78 20 3a 3d 20 |;..BEGIN|...x := |
|00000450| 78 20 44 49 56 20 6d 6d | 20 2d 20 33 3b 20 79 20 |x DIV mm| - 3; y |
|00000460| 3a 3d 20 79 20 44 49 56 | 20 6d 6d 20 2d 20 31 32 |:= y DIV| mm - 12|
|00000470| 3b 20 69 20 3a 3d 20 53 | 48 4f 52 54 28 78 20 44 |; i := S|HORT(x D|
|00000480| 49 56 20 39 29 3b 20 6a | 20 3a 3d 20 53 48 4f 52 |IV 9); j| := SHOR|
|00000490| 54 28 79 20 44 49 56 20 | 39 29 3b 0d 09 09 76 61 |T(y DIV |9);...va|
|000004a0| 6c 69 64 20 3a 3d 20 28 | 69 20 3e 3d 20 30 29 20 |lid := (|i >= 0) |
|000004b0| 26 20 28 69 20 3c 20 34 | 29 20 26 20 28 6a 20 3e |& (i < 4|) & (j >|
|000004c0| 3d 20 30 29 20 26 20 28 | 6a 20 3c 20 35 29 20 26 |= 0) & (|j < 5) &|
|000004d0| 20 28 78 20 4d 4f 44 20 | 39 20 3c 20 37 29 20 26 | (x MOD |9 < 7) &|
|000004e0| 20 28 79 20 4d 4f 44 20 | 39 20 3c 20 37 29 0d 09 | (y MOD |9 < 7)..|
|000004f0| 45 4e 44 20 4c 6f 63 61 | 74 65 46 69 65 6c 64 3b |END Loca|teField;|
|00000500| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 53 65 6c |...PROCE|DURE Sel|
|00000510| 65 63 74 46 69 65 6c 64 | 20 28 76 3a 20 56 69 65 |ectField| (v: Vie|
|00000520| 77 3b 20 66 3a 20 50 6f | 72 74 73 2e 46 72 61 6d |w; f: Po|rts.Fram|
|00000530| 65 3b 20 69 2c 20 6a 3a | 20 49 4e 54 45 47 45 52 |e; i, j:| INTEGER|
|00000540| 29 3b 0d 09 09 43 4f 4e | 53 54 20 70 6f 69 6e 74 |);...CON|ST point|
|00000550| 20 3d 20 50 6f 72 74 73 | 2e 70 6f 69 6e 74 3b 0d | = Ports|.point;.|
|00000560| 09 09 56 41 52 20 78 2c | 20 79 3a 20 4c 4f 4e 47 |..VAR x,| y: LONG|
|00000570| 49 4e 54 3b 0d 09 42 45 | 47 49 4e 0d 09 09 78 20 |INT;..BE|GIN...x |
|00000580| 3a 3d 20 28 33 20 2b 20 | 69 20 2a 20 39 29 20 2a |:= (3 + |i * 9) *|
|00000590| 20 6d 6d 3b 20 79 20 3a | 3d 20 28 31 32 20 2b 20 | mm; y :|= (12 + |
|000005a0| 6a 20 2a 20 39 29 20 2a | 20 6d 6d 3b 0d 09 09 66 |j * 9) *| mm;...f|
|000005b0| 2e 4d 61 72 6b 52 65 63 | 74 28 78 20 2b 20 70 6f |.MarkRec|t(x + po|
|000005c0| 69 6e 74 2c 20 79 20 2b | 20 70 6f 69 6e 74 2c 20 |int, y +| point, |
|000005d0| 78 20 2b 20 36 20 2a 20 | 6d 6d 20 2d 20 70 6f 69 |x + 6 * |mm - poi|
|000005e0| 6e 74 2c 20 79 20 2b 20 | 36 20 2a 20 6d 6d 20 2d |nt, y + |6 * mm -|
|000005f0| 20 70 6f 69 6e 74 2c 20 | 50 6f 72 74 73 2e 66 69 | point, |Ports.fi|
|00000600| 6c 6c 2c 20 50 6f 72 74 | 73 2e 68 69 6c 69 74 65 |ll, Port|s.hilite|
|00000610| 2c 20 54 52 55 45 29 0d | 09 45 4e 44 20 53 65 6c |, TRUE).|.END Sel|
|00000620| 65 63 74 46 69 65 6c 64 | 3b 0d 0d 09 50 52 4f 43 |ectField|;...PROC|
|00000630| 45 44 55 52 45 20 48 61 | 6e 64 6c 65 4b 65 79 20 |EDURE Ha|ndleKey |
|00000640| 28 76 3a 20 56 69 65 77 | 3b 20 69 2c 20 6a 3a 20 |(v: View|; i, j: |
|00000650| 49 4e 54 45 47 45 52 29 | 3b 0d 09 09 56 41 52 20 |INTEGER)|;...VAR |
|00000660| 6b 2c 20 6e 3a 20 49 4e | 54 45 47 45 52 3b 20 73 |k, n: IN|TEGER; s|
|00000670| 3a 20 53 74 61 63 6b 3b | 0d 09 42 45 47 49 4e 0d |: Stack;|..BEGIN.|
|00000680| 09 09 6b 20 3a 3d 20 6a | 2a 34 20 2b 20 69 3b 20 |..k := j|*4 + i; |
|00000690| 73 20 3a 3d 20 76 2e 73 | 74 61 63 6b 3b 0d 09 09 |s := v.s|tack;...|
|000006a0| 49 46 20 6b 20 49 4e 20 | 7b 30 2c 20 31 2c 20 32 |IF k IN |{0, 1, 2|
|000006b0| 2c 20 33 2c 20 37 2c 20 | 31 31 2c 20 31 35 7d 20 |, 3, 7, |11, 15} |
|000006c0| 54 48 45 4e 0d 09 09 09 | 49 46 20 73 2e 6e 65 78 |THEN....|IF s.nex|
|000006d0| 74 20 23 20 4e 49 4c 20 | 54 48 45 4e 0d 09 09 09 |t # NIL |THEN....|
|000006e0| 09 49 46 20 6b 20 3d 20 | 30 20 54 48 45 4e 20 28 |.IF k = |0 THEN (|
|000006f0| 2a 20 73 77 61 70 20 2a | 29 20 73 20 3a 3d 20 73 |* swap *|) s := s|
|00000700| 2e 6e 65 78 74 3b 20 76 | 2e 73 74 61 63 6b 2e 6e |.next; v|.stack.n|
|00000710| 65 78 74 20 3a 3d 20 73 | 2e 6e 65 78 74 3b 20 73 |ext := s|.next; s|
|00000720| 2e 6e 65 78 74 20 3a 3d | 20 76 2e 73 74 61 63 6b |.next :=| v.stack|
|00000730| 3b 20 76 2e 73 74 61 63 | 6b 20 3a 3d 20 73 0d 09 |; v.stac|k := s..|
|00000740| 09 09 09 45 4c 53 49 46 | 20 6b 20 3d 20 31 20 54 |...ELSIF| k = 1 T|
|00000750| 48 45 4e 20 76 2e 73 74 | 61 63 6b 20 3a 3d 20 73 |HEN v.st|ack := s|
|00000760| 2e 6e 65 78 74 0d 09 09 | 09 09 45 4c 53 49 46 20 |.next...|..ELSIF |
|00000770| 6b 20 49 4e 20 7b 32 2c | 20 33 7d 20 54 48 45 4e |k IN {2,| 3} THEN|
|00000780| 0d 09 09 09 09 09 49 46 | 20 73 2e 76 61 6c 20 3d |......IF| s.val =|
|00000790| 20 30 20 54 48 45 4e 20 | 44 69 61 6c 6f 67 2e 42 | 0 THEN |Dialog.B|
|000007a0| 65 65 70 0d 09 09 09 09 | 09 45 4c 53 49 46 20 6b |eep.....|.ELSIF k|
|000007b0| 20 3d 20 32 20 54 48 45 | 4e 20 73 2e 6e 65 78 74 | = 2 THE|N s.next|
|000007c0| 2e 76 61 6c 20 3a 3d 20 | 73 2e 6e 65 78 74 2e 76 |.val := |s.next.v|
|000007d0| 61 6c 20 4d 4f 44 20 73 | 2e 76 61 6c 3b 20 76 2e |al MOD s|.val; v.|
|000007e0| 73 74 61 63 6b 20 3a 3d | 20 73 2e 6e 65 78 74 0d |stack :=| s.next.|
|000007f0| 09 09 09 09 09 45 4c 53 | 45 20 73 2e 6e 65 78 74 |.....ELS|E s.next|
|00000800| 2e 76 61 6c 20 3a 3d 20 | 73 2e 6e 65 78 74 2e 76 |.val := |s.next.v|
|00000810| 61 6c 20 44 49 56 20 73 | 2e 76 61 6c 3b 20 76 2e |al DIV s|.val; v.|
|00000820| 73 74 61 63 6b 20 3a 3d | 20 73 2e 6e 65 78 74 0d |stack :=| s.next.|
|00000830| 09 09 09 09 09 45 4e 44 | 0d 09 09 09 09 45 4c 53 |.....END|.....ELS|
|00000840| 49 46 20 6b 20 3d 20 37 | 20 54 48 45 4e 20 73 2e |IF k = 7| THEN s.|
|00000850| 6e 65 78 74 2e 76 61 6c | 20 3a 3d 20 73 2e 6e 65 |next.val| := s.ne|
|00000860| 78 74 2e 76 61 6c 20 2a | 20 73 2e 76 61 6c 3b 20 |xt.val *| s.val; |
|00000870| 76 2e 73 74 61 63 6b 20 | 3a 3d 20 73 2e 6e 65 78 |v.stack |:= s.nex|
|00000880| 74 0d 09 09 09 09 45 4c | 53 49 46 20 6b 20 3d 20 |t.....EL|SIF k = |
|00000890| 31 31 20 54 48 45 4e 20 | 73 2e 6e 65 78 74 2e 76 |11 THEN |s.next.v|
|000008a0| 61 6c 20 3a 3d 20 73 2e | 6e 65 78 74 2e 76 61 6c |al := s.|next.val|
|000008b0| 20 2d 20 73 2e 76 61 6c | 3b 20 76 2e 73 74 61 63 | - s.val|; v.stac|
|000008c0| 6b 20 3a 3d 20 73 2e 6e | 65 78 74 0d 09 09 09 09 |k := s.n|ext.....|
|000008d0| 45 4c 53 49 46 20 6b 20 | 3d 20 31 35 20 54 48 45 |ELSIF k |= 15 THE|
|000008e0| 4e 20 73 2e 6e 65 78 74 | 2e 76 61 6c 20 3a 3d 20 |N s.next|.val := |
|000008f0| 73 2e 6e 65 78 74 2e 76 | 61 6c 20 2b 20 73 2e 76 |s.next.v|al + s.v|
|00000900| 61 6c 3b 20 76 2e 73 74 | 61 63 6b 20 3a 3d 20 73 |al; v.st|ack := s|
|00000910| 2e 6e 65 78 74 0d 09 09 | 09 09 45 4e 44 0d 09 09 |.next...|..END...|
|00000920| 09 45 4c 53 45 0d 09 09 | 09 09 49 46 20 6b 20 3d |.ELSE...|..IF k =|
|00000930| 20 30 20 54 48 45 4e 20 | 4e 45 57 28 73 29 3b 20 | 0 THEN |NEW(s); |
|00000940| 73 2e 76 61 6c 20 3a 3d | 20 30 3b 20 73 2e 6e 65 |s.val :=| 0; s.ne|
|00000950| 78 74 20 3a 3d 20 76 2e | 73 74 61 63 6b 3b 20 76 |xt := v.|stack; v|
|00000960| 2e 73 74 61 63 6b 20 3a | 3d 20 73 0d 09 09 09 09 |.stack :|= s.....|
|00000970| 45 4c 53 49 46 20 6b 20 | 3d 20 31 31 20 54 48 45 |ELSIF k |= 11 THE|
|00000980| 4e 20 73 2e 76 61 6c 20 | 3a 3d 20 2d 73 2e 76 61 |N s.val |:= -s.va|
|00000990| 6c 0d 09 09 09 09 45 4c | 53 49 46 20 6b 20 3d 20 |l.....EL|SIF k = |
|000009a0| 31 35 20 54 48 45 4e 20 | 28 2a 20 73 6b 69 70 20 |15 THEN |(* skip |
|000009b0| 2a 29 0d 09 09 09 09 45 | 4c 53 45 20 73 2e 76 61 |*).....E|LSE s.va|
|000009c0| 6c 20 3a 3d 20 30 0d 09 | 09 09 09 45 4e 44 0d 09 |l := 0..|...END..|
|000009d0| 09 09 45 4e 44 3b 0d 09 | 09 09 76 2e 65 64 69 74 |..END;..|..v.edit|
|000009e0| 4d 6f 64 65 20 3a 3d 20 | 46 41 4c 53 45 0d 09 09 |Mode := |FALSE...|
|000009f0| 45 4c 53 49 46 20 6b 20 | 3d 20 31 38 20 54 48 45 |ELSIF k |= 18 THE|
|00000a00| 4e 20 20 28 2a 20 b1 20 | 2a 29 20 0d 09 09 09 73 |N  (* . |*) ....s|
|00000a10| 2e 76 61 6c 20 3a 3d 20 | 2d 20 73 2e 76 61 6c 0d |.val := |- s.val.|
|00000a20| 09 09 45 4c 53 49 46 20 | 6b 20 3d 20 31 36 54 48 |..ELSIF |k = 16TH|
|00000a30| 45 4e 20 28 2a 20 64 65 | 6c 65 74 65 20 2a 29 0d |EN (* de|lete *).|
|00000a40| 09 09 09 49 46 20 76 2e | 65 64 69 74 4d 6f 64 65 |...IF v.|editMode|
|00000a50| 20 54 48 45 4e 20 73 2e | 76 61 6c 20 3a 3d 20 73 | THEN s.|val := s|
|00000a60| 2e 76 61 6c 20 44 49 56 | 20 31 30 0d 09 09 09 45 |.val DIV| 10....E|
|00000a70| 4c 53 45 20 73 2e 76 61 | 6c 20 3a 3d 20 30 3b 20 |LSE s.va|l := 0; |
|00000a80| 76 2e 65 64 69 74 4d 6f | 64 65 20 3a 3d 20 54 52 |v.editMo|de := TR|
|00000a90| 55 45 0d 09 09 09 45 4e | 44 0d 09 09 45 4c 53 49 |UE....EN|D...ELSI|
|00000aa0| 46 20 6b 20 3d 20 31 39 | 20 54 48 45 4e 20 28 2a |F k = 19| THEN (*|
|00000ab0| 20 65 6e 74 65 72 20 2a | 29 0d 09 09 09 4e 45 57 | enter *|)....NEW|
|00000ac0| 28 73 29 3b 20 73 2e 76 | 61 6c 20 3a 3d 20 76 2e |(s); s.v|al := v.|
|00000ad0| 73 74 61 63 6b 2e 76 61 | 6c 3b 20 73 2e 6e 65 78 |stack.va|l; s.nex|
|00000ae0| 74 20 3a 3d 20 76 2e 73 | 74 61 63 6b 3b 20 76 2e |t := v.s|tack; v.|
|00000af0| 73 74 61 63 6b 20 3a 3d | 20 73 3b 0d 09 09 09 76 |stack :=| s;....v|
|00000b00| 2e 65 64 69 74 4d 6f 64 | 65 20 3a 3d 20 46 41 4c |.editMod|e := FAL|
|00000b10| 53 45 0d 09 09 45 4c 53 | 45 20 28 2a 20 65 64 69 |SE...ELS|E (* edi|
|00000b20| 74 20 6f 70 65 72 61 74 | 69 6f 6e 20 2a 29 0d 09 |t operat|ion *)..|
|00000b30| 09 09 49 46 20 6b 20 3d | 20 31 37 20 54 48 45 4e |..IF k =| 17 THEN|
|00000b40| 20 28 2a 20 30 20 2a 29 | 20 6e 20 3a 3d 20 30 20 | (* 0 *)| n := 0 |
|00000b50| 45 4c 53 45 20 6e 20 3a | 3d 20 28 33 2d 6a 29 2a |ELSE n :|= (3-j)*|
|00000b60| 33 20 2b 20 31 20 2b 20 | 69 20 45 4e 44 3b 0d 09 |3 + 1 + |i END;..|
|00000b70| 09 09 49 46 20 7e 76 2e | 65 64 69 74 4d 6f 64 65 |..IF ~v.|editMode|
|00000b80| 20 26 20 7e 76 2e 65 6e | 74 65 72 4d 6f 64 65 20 | & ~v.en|terMode |
|00000b90| 54 48 45 4e 0d 09 09 09 | 09 4e 45 57 28 73 29 3b |THEN....|.NEW(s);|
|00000ba0| 20 73 2e 76 61 6c 20 3a | 3d 20 6e 3b 20 73 2e 6e | s.val :|= n; s.n|
|00000bb0| 65 78 74 20 3a 3d 20 76 | 2e 73 74 61 63 6b 3b 20 |ext := v|.stack; |
|00000bc0| 76 2e 73 74 61 63 6b 20 | 3a 3d 20 73 3b 20 76 2e |v.stack |:= s; v.|
|00000bd0| 65 64 69 74 4d 6f 64 65 | 20 3a 3d 20 54 52 55 45 |editMode| := TRUE|
|00000be0| 0d 09 09 09 45 4c 53 49 | 46 20 7e 76 2e 65 64 69 |....ELSI|F ~v.edi|
|00000bf0| 74 4d 6f 64 65 20 54 48 | 45 4e 20 73 2e 76 61 6c |tMode TH|EN s.val|
|00000c00| 20 3a 3d 20 6e 3b 20 76 | 2e 65 64 69 74 4d 6f 64 | := n; v|.editMod|
|00000c10| 65 20 3a 3d 20 54 52 55 | 45 0d 09 09 09 45 4c 53 |e := TRU|E....ELS|
|00000c20| 49 46 20 73 2e 76 61 6c | 20 3e 3d 20 30 20 54 48 |IF s.val| >= 0 TH|
|00000c30| 45 4e 0d 09 09 09 09 49 | 46 20 73 2e 76 61 6c 20 |EN.....I|F s.val |
|00000c40| 3e 20 28 4d 41 58 28 4c | 4f 4e 47 49 4e 54 29 20 |> (MAX(L|ONGINT) |
|00000c50| 2d 20 6e 29 20 44 49 56 | 20 31 30 20 54 48 45 4e |- n) DIV| 10 THEN|
|00000c60| 20 44 69 61 6c 6f 67 2e | 42 65 65 70 20 45 4c 53 | Dialog.|Beep ELS|
|00000c70| 45 20 73 2e 76 61 6c 20 | 3a 3d 20 31 30 2a 73 2e |E s.val |:= 10*s.|
|00000c80| 76 61 6c 20 2b 20 6e 20 | 45 4e 44 0d 09 09 09 45 |val + n |END....E|
|00000c90| 4c 53 45 20 0d 09 09 09 | 09 49 46 20 73 2e 76 61 |LSE ....|.IF s.va|
|00000ca0| 6c 20 3c 20 28 4d 49 4e | 28 4c 4f 4e 47 49 4e 54 |l < (MIN|(LONGINT|
|00000cb0| 29 20 2b 20 6e 29 20 44 | 49 56 20 31 30 20 54 48 |) + n) D|IV 10 TH|
|00000cc0| 45 4e 20 44 69 61 6c 6f | 67 2e 42 65 65 70 20 45 |EN Dialo|g.Beep E|
|00000cd0| 4c 53 45 20 73 2e 76 61 | 6c 20 3a 3d 20 31 30 2a |LSE s.va|l := 10*|
|00000ce0| 73 2e 76 61 6c 20 2d 20 | 6e 20 45 4e 44 0d 09 09 |s.val - |n END...|
|00000cf0| 09 45 4e 44 0d 09 09 45 | 4e 44 3b 0d 09 09 76 2e |.END...E|ND;...v.|
|00000d00| 65 6e 74 65 72 4d 6f 64 | 65 20 3a 3d 20 6b 20 3d |enterMod|e := k =|
|00000d10| 20 31 39 3b 0d 09 09 56 | 69 65 77 73 2e 55 70 64 | 19;...V|iews.Upd|
|00000d20| 61 74 65 28 76 2c 20 56 | 69 65 77 73 2e 6b 65 65 |ate(v, V|iews.kee|
|00000d30| 70 46 72 61 6d 65 73 29 | 0d 09 45 4e 44 20 48 61 |pFrames)|..END Ha|
|00000d40| 6e 64 6c 65 4b 65 79 3b | 0d 0d 09 50 52 4f 43 45 |ndleKey;|...PROCE|
|00000d50| 44 55 52 45 20 54 72 61 | 63 6b 20 28 76 3a 20 56 |DURE Tra|ck (v: V|
|00000d60| 69 65 77 3b 20 66 3a 20 | 56 69 65 77 73 2e 46 72 |iew; f: |Views.Fr|
|00000d70| 61 6d 65 3b 20 78 2c 20 | 79 3a 20 4c 4f 4e 47 49 |ame; x, |y: LONGI|
|00000d80| 4e 54 3b 20 62 75 74 74 | 6f 6e 73 3a 20 53 45 54 |NT; butt|ons: SET|
|00000d90| 29 3b 0d 09 09 56 41 52 | 20 69 2c 20 6a 2c 20 69 |);...VAR| i, j, i|
|00000da0| 31 2c 20 6a 31 3a 20 49 | 4e 54 45 47 45 52 3b 20 |1, j1: I|NTEGER; |
|00000db0| 69 73 44 6f 77 6e 2c 20 | 76 61 6c 69 64 2c 20 73 |isDown, |valid, s|
|00000dc0| 65 6c 3a 20 42 4f 4f 4c | 45 41 4e 3b 20 6d 3a 20 |el: BOOL|EAN; m: |
|00000dd0| 53 45 54 3b 0d 09 42 45 | 47 49 4e 0d 09 09 4c 6f |SET;..BE|GIN...Lo|
|00000de0| 63 61 74 65 46 69 65 6c | 64 28 76 2c 20 66 2c 20 |cateFiel|d(v, f, |
|00000df0| 78 2c 20 79 2c 20 69 2c | 20 6a 2c 20 73 65 6c 29 |x, y, i,| j, sel)|
|00000e00| 3b 0d 09 09 49 46 20 73 | 65 6c 20 54 48 45 4e 0d |;...IF s|el THEN.|
|00000e10| 09 09 09 53 65 6c 65 63 | 74 46 69 65 6c 64 28 76 |...Selec|tField(v|
|00000e20| 2c 20 66 2c 20 69 2c 20 | 6a 29 3b 0d 09 09 09 52 |, f, i, |j);....R|
|00000e30| 45 50 45 41 54 20 66 2e | 49 6e 70 75 74 28 78 2c |EPEAT f.|Input(x,|
|00000e40| 20 79 2c 20 6d 2c 20 69 | 73 44 6f 77 6e 29 3b 0d | y, m, i|sDown);.|
|00000e50| 09 09 09 09 4c 6f 63 61 | 74 65 46 69 65 6c 64 28 |....Loca|teField(|
|00000e60| 76 2c 20 66 2c 20 78 2c | 20 79 2c 20 69 31 2c 20 |v, f, x,| y, i1, |
|00000e70| 6a 31 2c 20 76 61 6c 69 | 64 29 3b 20 0d 09 09 09 |j1, vali|d); ....|
|00000e80| 09 49 46 20 7e 76 61 6c | 69 64 20 4f 52 20 28 69 |.IF ~val|id OR (i|
|00000e90| 31 20 23 20 69 29 20 4f | 52 20 28 6a 31 20 23 20 |1 # i) O|R (j1 # |
|00000ea0| 6a 29 20 54 48 45 4e 0d | 09 09 09 09 09 49 46 20 |j) THEN.|.....IF |
|00000eb0| 73 65 6c 20 54 48 45 4e | 20 73 65 6c 20 3a 3d 20 |sel THEN| sel := |
|00000ec0| 46 41 4c 53 45 3b 20 53 | 65 6c 65 63 74 46 69 65 |FALSE; S|electFie|
|00000ed0| 6c 64 28 76 2c 20 66 2c | 20 69 2c 20 6a 29 20 45 |ld(v, f,| i, j) E|
|00000ee0| 4e 44 0d 09 09 09 09 45 | 4c 53 45 0d 09 09 09 09 |ND.....E|LSE.....|
|00000ef0| 09 49 46 20 7e 73 65 6c | 20 54 48 45 4e 20 73 65 |.IF ~sel| THEN se|
|00000f00| 6c 20 3a 3d 20 54 52 55 | 45 3b 20 53 65 6c 65 63 |l := TRU|E; Selec|
|00000f10| 74 46 69 65 6c 64 28 76 | 2c 20 66 2c 20 69 2c 20 |tField(v|, f, i, |
|00000f20| 6a 29 20 45 4e 44 0d 09 | 09 09 09 45 4e 44 0d 09 |j) END..|...END..|
|00000f30| 09 09 55 4e 54 49 4c 20 | 7e 69 73 44 6f 77 6e 3b |..UNTIL |~isDown;|
|00000f40| 0d 09 09 09 49 46 20 73 | 65 6c 20 54 48 45 4e 20 |....IF s|el THEN |
|00000f50| 48 61 6e 64 6c 65 4b 65 | 79 28 76 2c 20 69 2c 20 |HandleKe|y(v, i, |
|00000f60| 6a 29 3b 20 53 65 6c 65 | 63 74 46 69 65 6c 64 28 |j); Sele|ctField(|
|00000f70| 76 2c 20 66 2c 20 69 2c | 20 6a 29 20 45 4e 44 0d |v, f, i,| j) END.|
|00000f80| 09 09 45 4e 44 0d 09 45 | 4e 44 20 54 72 61 63 6b |..END..E|ND Track|
|00000f90| 3b 0d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 49 6e |;...PROC|EDURE In|
|00000fa0| 69 74 20 28 76 3a 20 56 | 69 65 77 29 3b 0d 09 42 |it (v: V|iew);..B|
|00000fb0| 45 47 49 4e 0d 09 09 4e | 45 57 28 76 2e 73 74 61 |EGIN...N|EW(v.sta|
|00000fc0| 63 6b 29 3b 20 76 2e 73 | 74 61 63 6b 2e 76 61 6c |ck); v.s|tack.val|
|00000fd0| 20 3a 3d 20 30 3b 20 76 | 2e 65 64 69 74 4d 6f 64 | := 0; v|.editMod|
|00000fe0| 65 20 3a 3d 20 54 52 55 | 45 3b 20 76 2e 65 6e 74 |e := TRU|E; v.ent|
|00000ff0| 65 72 4d 6f 64 65 20 3a | 3d 20 46 41 4c 53 45 0d |erMode :|= FALSE.|
|00001000| 09 45 4e 44 20 49 6e 69 | 74 3b 0d 0d 09 28 2a 20 |.END Ini|t;...(* |
|00001010| 56 69 65 77 20 2a 29 0d | 0d 09 50 52 4f 43 45 44 |View *).|..PROCED|
|00001020| 55 52 45 20 28 76 3a 20 | 56 69 65 77 29 20 45 78 |URE (v: |View) Ex|
|00001030| 74 65 72 6e 61 6c 69 7a | 65 20 28 56 41 52 20 77 |ternaliz|e (VAR w|
|00001040| 72 3a 20 53 74 6f 72 65 | 73 2e 57 72 69 74 65 72 |r: Store|s.Writer|
|00001050| 29 3b 0d 09 42 45 47 49 | 4e 0d 09 09 76 2e 45 78 |);..BEGI|N...v.Ex|
|00001060| 74 65 72 6e 61 6c 69 7a | 65 5e 28 77 72 29 3b 0d |ternaliz|e^(wr);.|
|00001070| 09 09 77 72 2e 57 72 69 | 74 65 56 65 72 73 69 6f |..wr.Wri|teVersio|
|00001080| 6e 28 76 65 72 73 69 6f | 6e 29 3b 0d 09 45 4e 44 |n(versio|n);..END|
|00001090| 20 45 78 74 65 72 6e 61 | 6c 69 7a 65 3b 0d 09 0d | Externa|lize;...|
|000010a0| 09 50 52 4f 43 45 44 55 | 52 45 20 28 76 3a 20 56 |.PROCEDU|RE (v: V|
|000010b0| 69 65 77 29 20 49 6e 74 | 65 72 6e 61 6c 69 7a 65 |iew) Int|ernalize|
|000010c0| 20 28 56 41 52 20 72 64 | 3a 20 53 74 6f 72 65 73 | (VAR rd|: Stores|
|000010d0| 2e 52 65 61 64 65 72 29 | 3b 0d 09 09 56 41 52 20 |.Reader)|;...VAR |
|000010e0| 76 65 72 3a 20 53 48 4f | 52 54 49 4e 54 3b 0d 09 |ver: SHO|RTINT;..|
|000010f0| 42 45 47 49 4e 0d 09 09 | 76 2e 49 6e 74 65 72 6e |BEGIN...|v.Intern|
|00001100| 61 6c 69 7a 65 5e 28 72 | 64 29 3b 0d 09 09 49 46 |alize^(r|d);...IF|
|00001110| 20 7e 72 64 2e 63 61 6e | 63 65 6c 6c 65 64 20 54 | ~rd.can|celled T|
|00001120| 48 45 4e 0d 09 09 09 72 | 64 2e 52 65 61 64 56 65 |HEN....r|d.ReadVe|
|00001130| 72 73 69 6f 6e 28 76 65 | 72 73 69 6f 6e 2c 20 76 |rsion(ve|rsion, v|
|00001140| 65 72 73 69 6f 6e 2c 20 | 76 65 72 29 3b 0d 09 09 |ersion, |ver);...|
|00001150| 09 49 46 20 7e 72 64 2e | 63 61 6e 63 65 6c 6c 65 |.IF ~rd.|cancelle|
|00001160| 64 20 54 48 45 4e 20 49 | 6e 69 74 28 76 29 20 45 |d THEN I|nit(v) E|
|00001170| 4e 44 0d 09 09 45 4e 44 | 0d 09 45 4e 44 20 49 6e |ND...END|..END In|
|00001180| 74 65 72 6e 61 6c 69 7a | 65 3b 0d 09 0d 09 50 52 |ternaliz|e;....PR|
|00001190| 4f 43 45 44 55 52 45 20 | 28 76 3a 20 56 69 65 77 |OCEDURE |(v: View|
|000011a0| 29 20 43 6f 70 79 46 72 | 6f 6d 20 28 73 6f 75 72 |) CopyFr|om (sour|
|000011b0| 63 65 3a 20 56 69 65 77 | 73 2e 56 69 65 77 29 3b |ce: View|s.View);|
|000011c0| 0d 09 42 45 47 49 4e 0d | 09 09 49 6e 69 74 28 76 |..BEGIN.|..Init(v|
|000011d0| 29 0d 09 45 4e 44 20 43 | 6f 70 79 46 72 6f 6d 3b |)..END C|opyFrom;|
|000011e0| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 28 76 3a |...PROCE|DURE (v:|
|000011f0| 20 56 69 65 77 29 20 52 | 65 73 74 6f 72 65 20 28 | View) R|estore (|
|00001200| 66 3a 20 56 69 65 77 73 | 2e 46 72 61 6d 65 3b 20 |f: Views|.Frame; |
|00001210| 6c 2c 20 74 2c 20 72 2c | 20 62 3a 20 4c 4f 4e 47 |l, t, r,| b: LONG|
|00001220| 49 4e 54 29 3b 0d 09 09 | 56 41 52 20 69 2c 20 6a |INT);...|VAR i, j|
|00001230| 3a 20 49 4e 54 45 47 45 | 52 3b 20 78 2c 20 79 3a |: INTEGE|R; x, y:|
|00001240| 20 4c 4f 4e 47 49 4e 54 | 3b 20 73 3a 20 41 52 52 | LONGINT|; s: ARR|
|00001250| 41 59 20 32 20 4f 46 20 | 43 48 41 52 3b 0d 09 09 |AY 2 OF |CHAR;...|
|00001260| 09 64 69 73 70 6c 61 79 | 3a 20 41 52 52 41 59 20 |.display|: ARRAY |
|00001270| 31 32 20 4f 46 20 43 48 | 41 52 3b 0d 09 42 45 47 |12 OF CH|AR;..BEG|
|00001280| 49 4e 0d 09 09 53 74 72 | 69 6e 67 73 2e 49 6e 74 |IN...Str|ings.Int|
|00001290| 54 6f 53 74 72 69 6e 67 | 46 6f 72 6d 28 76 2e 73 |ToString|Form(v.s|
|000012a0| 74 61 63 6b 2e 76 61 6c | 2c 20 53 74 72 69 6e 67 |tack.val|, String|
|000012b0| 73 2e 64 65 63 69 6d 61 | 6c 2c 20 31 31 2c 20 22 |s.decima|l, 11, "|
|000012c0| 20 22 2c 20 46 41 4c 53 | 45 2c 20 64 69 73 70 6c | ", FALS|E, displ|
|000012d0| 61 79 29 3b 0d 09 09 66 | 2e 44 72 61 77 52 65 63 |ay);...f|.DrawRec|
|000012e0| 74 28 30 2c 20 30 2c 20 | 34 30 20 2a 20 6d 6d 2c |t(0, 0, |40 * mm,|
|000012f0| 20 35 38 20 2a 20 6d 6d | 2c 20 30 2c 20 50 6f 72 | 58 * mm|, 0, Por|
|00001300| 74 73 2e 62 6c 61 63 6b | 29 3b 0d 09 09 66 2e 44 |ts.black|);...f.D|
|00001310| 72 61 77 52 65 63 74 28 | 33 20 2a 20 6d 6d 2c 20 |rawRect(|3 * mm, |
|00001320| 33 20 2a 20 6d 6d 2c 20 | 33 37 20 2a 20 6d 6d 2c |3 * mm, |37 * mm,|
|00001330| 20 31 30 20 2a 20 6d 6d | 2c 20 30 2c 20 50 6f 72 | 10 * mm|, 0, Por|
|00001340| 74 73 2e 62 6c 61 63 6b | 29 3b 0d 09 09 66 2e 44 |ts.black|);...f.D|
|00001350| 72 61 77 53 74 72 69 6e | 67 28 36 20 2a 20 6d 6d |rawStrin|g(6 * mm|
|00001360| 2c 20 38 20 2a 20 6d 6d | 2c 20 50 6f 72 74 73 2e |, 8 * mm|, Ports.|
|00001370| 62 6c 61 63 6b 2c 20 64 | 69 73 70 6c 61 79 2c 20 |black, d|isplay, |
|00001380| 66 6f 6e 74 29 3b 0d 09 | 09 6a 20 3a 3d 20 30 3b |font);..|.j := 0;|
|00001390| 0d 09 09 57 48 49 4c 45 | 20 6a 20 23 20 35 20 44 |...WHILE| j # 5 D|
|000013a0| 4f 0d 09 09 09 69 20 3a | 3d 20 30 3b 20 79 20 3a |O....i :|= 0; y :|
|000013b0| 3d 20 28 31 32 20 2b 20 | 6a 20 2a 20 39 29 20 2a |= (12 + |j * 9) *|
|000013c0| 20 6d 6d 3b 0d 09 09 09 | 57 48 49 4c 45 20 69 20 | mm;....|WHILE i |
|000013d0| 23 20 34 20 44 4f 0d 09 | 09 09 09 78 20 3a 3d 20 |# 4 DO..|...x := |
|000013e0| 28 33 20 2b 20 69 20 2a | 20 39 29 20 2a 20 6d 6d |(3 + i *| 9) * mm|
|000013f0| 3b 0d 09 09 09 09 66 2e | 44 72 61 77 52 65 63 74 |;.....f.|DrawRect|
|00001400| 28 78 2c 20 79 2c 20 78 | 20 2b 20 36 20 2a 20 6d |(x, y, x| + 6 * m|
|00001410| 6d 2c 20 79 20 2b 20 36 | 20 2a 20 6d 6d 2c 20 30 |m, y + 6| * mm, 0|
|00001420| 2c 20 50 6f 72 74 73 2e | 62 6c 61 63 6b 29 3b 0d |, Ports.|black);.|
|00001430| 09 09 09 09 66 2e 44 72 | 61 77 52 65 63 74 28 78 |....f.Dr|awRect(x|
|00001440| 20 2b 20 6d 6d 2c 20 79 | 20 2b 20 36 20 2a 20 6d | + mm, y| + 6 * m|
|00001450| 6d 2c 20 78 20 2b 20 37 | 20 2a 20 6d 6d 2c 20 79 |m, x + 7| * mm, y|
|00001460| 20 2b 20 37 20 2a 20 6d | 6d 2c 20 50 6f 72 74 73 | + 7 * m|m, Ports|
|00001470| 2e 66 69 6c 6c 2c 20 50 | 6f 72 74 73 2e 62 6c 61 |.fill, P|orts.bla|
|00001480| 63 6b 29 3b 0d 09 09 09 | 09 66 2e 44 72 61 77 52 |ck);....|.f.DrawR|
|00001490| 65 63 74 28 78 20 2b 20 | 36 20 2a 20 6d 6d 2c 20 |ect(x + |6 * mm, |
|000014a0| 79 20 2b 20 50 6f 72 74 | 73 2e 6d 6d 2c 20 78 20 |y + Port|s.mm, x |
|000014b0| 2b 20 37 20 2a 20 6d 6d | 2c 20 79 20 2b 20 37 20 |+ 7 * mm|, y + 7 |
|000014c0| 2a 20 6d 6d 2c 20 50 6f | 72 74 73 2e 66 69 6c 6c |* mm, Po|rts.fill|
|000014d0| 2c 20 50 6f 72 74 73 2e | 62 6c 61 63 6b 29 3b 0d |, Ports.|black);.|
|000014e0| 09 09 09 09 73 5b 30 5d | 20 3a 3d 20 6c 61 62 65 |....s[0]| := labe|
|000014f0| 6c 73 5b 6a 20 2a 20 34 | 20 2b 20 69 5d 3b 20 73 |ls[j * 4| + i]; s|
|00001500| 5b 31 5d 20 3a 3d 20 30 | 58 3b 0d 09 09 09 09 66 |[1] := 0|X;.....f|
|00001510| 2e 44 72 61 77 53 74 72 | 69 6e 67 28 78 20 2b 20 |.DrawStr|ing(x + |
|00001520| 33 20 2a 20 6d 6d 20 2d | 20 66 6f 6e 74 2e 77 20 |3 * mm -| font.w |
|00001530| 44 49 56 20 32 2c 20 79 | 20 2b 20 33 20 2a 20 6d |DIV 2, y| + 3 * m|
|00001540| 6d 20 2b 20 66 6f 6e 74 | 2e 61 73 63 20 44 49 56 |m + font|.asc DIV|
|00001550| 20 32 2c 20 50 6f 72 74 | 73 2e 62 6c 61 63 6b 2c | 2, Port|s.black,|
|00001560| 20 73 2c 20 66 6f 6e 74 | 29 3b 0d 09 09 09 09 49 | s, font|);.....I|
|00001570| 4e 43 28 69 29 0d 09 09 | 09 45 4e 44 3b 0d 09 09 |NC(i)...|.END;...|
|00001580| 09 49 4e 43 28 6a 29 0d | 09 09 45 4e 44 0d 09 45 |.INC(j).|..END..E|
|00001590| 4e 44 20 52 65 73 74 6f | 72 65 3b 0d 0d 09 50 52 |ND Resto|re;...PR|
|000015a0| 4f 43 45 44 55 52 45 20 | 28 76 3a 20 56 69 65 77 |OCEDURE |(v: View|
|000015b0| 29 20 48 61 6e 64 6c 65 | 43 74 72 6c 4d 73 67 20 |) Handle|CtrlMsg |
|000015c0| 28 66 3a 20 56 69 65 77 | 73 2e 46 72 61 6d 65 3b |(f: View|s.Frame;|
|000015d0| 20 56 41 52 20 6d 73 67 | 3a 20 43 6f 6e 74 72 6f | VAR msg|: Contro|
|000015e0| 6c 6c 65 72 73 2e 4d 65 | 73 73 61 67 65 3b 0d 09 |llers.Me|ssage;..|
|000015f0| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00001600| 09 09 09 09 56 41 52 20 | 66 6f 63 75 73 3a 20 56 |....VAR |focus: V|
|00001610| 69 65 77 73 2e 56 69 65 | 77 29 3b 0d 09 09 56 41 |iews.Vie|w);...VA|
|00001620| 52 20 69 2c 20 6a 2c 20 | 6b 3a 20 49 4e 54 45 47 |R i, j, |k: INTEG|
|00001630| 45 52 3b 0d 09 42 45 47 | 49 4e 0d 09 09 57 49 54 |ER;..BEG|IN...WIT|
|00001640| 48 20 6d 73 67 3a 20 43 | 6f 6e 74 72 6f 6c 6c 65 |H msg: C|ontrolle|
|00001650| 72 73 2e 50 6f 6c 6c 4f | 70 73 4d 73 67 20 44 4f |rs.PollO|psMsg DO|
|00001660| 0d 09 09 09 6d 73 67 2e | 76 61 6c 69 64 20 3a 3d |....msg.|valid :=|
|00001670| 20 7b 43 6f 6e 74 72 6f | 6c 6c 65 72 73 2e 70 61 | {Contro|llers.pa|
|00001680| 73 74 65 43 68 61 72 7d | 0d 09 09 7c 20 6d 73 67 |steChar}|...| msg|
|00001690| 3a 20 43 6f 6e 74 72 6f | 6c 6c 65 72 73 2e 54 72 |: Contro|llers.Tr|
|000016a0| 61 63 6b 4d 73 67 20 44 | 4f 0d 09 09 09 54 72 61 |ackMsg D|O....Tra|
|000016b0| 63 6b 28 76 2c 20 66 2c | 20 6d 73 67 2e 78 2c 20 |ck(v, f,| msg.x, |
|000016c0| 6d 73 67 2e 79 2c 20 6d | 73 67 2e 6d 6f 64 69 66 |msg.y, m|sg.modif|
|000016d0| 69 65 72 73 29 0d 09 09 | 7c 20 6d 73 67 3a 20 43 |iers)...|| msg: C|
|000016e0| 6f 6e 74 72 6f 6c 6c 65 | 72 73 2e 45 64 69 74 4d |ontrolle|rs.EditM|
|000016f0| 73 67 20 44 4f 0d 09 09 | 09 49 46 20 6d 73 67 2e |sg DO...|.IF msg.|
|00001700| 6f 70 20 3d 20 43 6f 6e | 74 72 6f 6c 6c 65 72 73 |op = Con|trollers|
|00001710| 2e 70 61 73 74 65 43 68 | 61 72 20 54 48 45 4e 0d |.pasteCh|ar THEN.|
|00001720| 09 09 09 09 49 46 20 6d | 73 67 2e 63 68 61 72 20 |....IF m|sg.char |
|00001730| 3d 20 43 52 20 54 48 45 | 4e 20 6b 20 3a 3d 20 31 |= CR THE|N k := 1|
|00001740| 39 0d 09 09 09 09 45 4c | 53 49 46 20 6d 73 67 2e |9.....EL|SIF msg.|
|00001750| 63 68 61 72 20 3d 20 30 | 38 58 20 54 48 45 4e 20 |char = 0|8X THEN |
|00001760| 6b 20 3a 3d 20 31 36 0d | 09 09 09 09 45 4c 53 45 |k := 16.|....ELSE|
|00001770| 0d 09 09 09 09 09 6b 20 | 3a 3d 20 30 3b 20 57 48 |......k |:= 0; WH|
|00001780| 49 4c 45 20 28 6b 20 23 | 20 32 30 29 20 26 20 28 |ILE (k #| 20) & (|
|00001790| 43 41 50 28 6c 61 62 65 | 6c 73 5b 6b 5d 29 20 23 |CAP(labe|ls[k]) #|
|000017a0| 20 43 41 50 28 6d 73 67 | 2e 63 68 61 72 29 29 20 | CAP(msg|.char)) |
|000017b0| 44 4f 20 49 4e 43 28 6b | 29 20 45 4e 44 0d 09 09 |DO INC(k|) END...|
|000017c0| 09 09 45 4e 44 3b 0d 09 | 09 09 09 49 46 20 6b 20 |..END;..|...IF k |
|000017d0| 3c 20 32 30 20 54 48 45 | 4e 0d 09 09 09 09 09 69 |< 20 THE|N......i|
|000017e0| 20 3a 3d 20 6b 20 4d 4f | 44 20 34 3b 20 6a 20 3a | := k MO|D 4; j :|
|000017f0| 3d 20 6b 20 44 49 56 20 | 34 3b 0d 09 09 09 09 09 |= k DIV |4;......|
|00001800| 53 65 6c 65 63 74 46 69 | 65 6c 64 28 76 2c 20 66 |SelectFi|eld(v, f|
|00001810| 2c 20 69 2c 20 6a 29 3b | 20 48 61 6e 64 6c 65 4b |, i, j);| HandleK|
|00001820| 65 79 28 76 2c 20 69 2c | 20 6a 29 3b 20 53 65 6c |ey(v, i,| j); Sel|
|00001830| 65 63 74 46 69 65 6c 64 | 28 76 2c 20 66 2c 20 69 |ectField|(v, f, i|
|00001840| 2c 20 6a 29 0d 09 09 09 | 09 45 4e 44 0d 09 09 09 |, j)....|.END....|
|00001850| 45 4e 44 0d 09 09 45 4c | 53 45 0d 09 09 45 4e 44 |END...EL|SE...END|
|00001860| 0d 09 45 4e 44 20 48 61 | 6e 64 6c 65 43 74 72 6c |..END Ha|ndleCtrl|
|00001870| 4d 73 67 3b 0d 0d 09 50 | 52 4f 43 45 44 55 52 45 |Msg;...P|ROCEDURE|
|00001880| 20 28 76 3a 20 56 69 65 | 77 29 20 48 61 6e 64 6c | (v: Vie|w) Handl|
|00001890| 65 50 72 6f 70 4d 73 67 | 20 28 56 41 52 20 6d 73 |ePropMsg| (VAR ms|
|000018a0| 67 3a 20 50 72 6f 70 65 | 72 74 69 65 73 2e 4d 65 |g: Prope|rties.Me|
|000018b0| 73 73 61 67 65 29 3b 0d | 09 42 45 47 49 4e 0d 09 |ssage);.|.BEGIN..|
|000018c0| 09 57 49 54 48 20 6d 73 | 67 3a 20 50 72 6f 70 65 |.WITH ms|g: Prope|
|000018d0| 72 74 69 65 73 2e 52 65 | 73 69 7a 65 50 72 65 66 |rties.Re|sizePref|
|000018e0| 20 44 4f 0d 09 09 09 6d | 73 67 2e 66 69 78 65 64 | DO....m|sg.fixed|
|000018f0| 20 3a 3d 20 54 52 55 45 | 0d 09 09 7c 20 6d 73 67 | := TRUE|...| msg|
|00001900| 3a 20 50 72 6f 70 65 72 | 74 69 65 73 2e 53 69 7a |: Proper|ties.Siz|
|00001910| 65 50 72 65 66 20 44 4f | 0d 09 09 09 6d 73 67 2e |ePref DO|....msg.|
|00001920| 77 20 3a 3d 20 34 30 20 | 2a 20 6d 6d 3b 20 6d 73 |w := 40 |* mm; ms|
|00001930| 67 2e 68 20 3a 3d 20 35 | 38 20 2a 20 6d 6d 0d 09 |g.h := 5|8 * mm..|
|00001940| 09 7c 20 6d 73 67 3a 20 | 50 72 6f 70 65 72 74 69 |.| msg: |Properti|
|00001950| 65 73 2e 46 6f 63 75 73 | 50 72 65 66 20 44 4f 0d |es.Focus|Pref DO.|
|00001960| 09 09 09 6d 73 67 2e 73 | 65 74 46 6f 63 75 73 20 |...msg.s|etFocus |
|00001970| 3a 3d 20 54 52 55 45 0d | 09 09 45 4c 53 45 0d 09 |:= TRUE.|..ELSE..|
|00001980| 09 45 4e 44 0d 09 45 4e | 44 20 48 61 6e 64 6c 65 |.END..EN|D Handle|
|00001990| 50 72 6f 70 4d 73 67 3b | 0d 0d 09 28 2a 20 63 6f |PropMsg;|...(* co|
|000019a0| 6d 6d 61 6e 64 73 20 2a | 29 0d 0d 09 50 52 4f 43 |mmands *|)...PROC|
|000019b0| 45 44 55 52 45 20 44 65 | 70 6f 73 69 74 2a 3b 0d |EDURE De|posit*;.|
|000019c0| 09 09 56 41 52 20 76 3a | 20 56 69 65 77 3b 0d 09 |..VAR v:| View;..|
|000019d0| 42 45 47 49 4e 0d 09 09 | 4e 45 57 28 76 29 3b 20 |BEGIN...|NEW(v); |
|000019e0| 49 6e 69 74 28 76 29 3b | 20 56 69 65 77 73 2e 44 |Init(v);| Views.D|
|000019f0| 65 70 6f 73 69 74 28 76 | 29 0d 09 45 4e 44 20 44 |eposit(v|)..END D|
|00001a00| 65 70 6f 73 69 74 3b 0d | 0d 42 45 47 49 4e 20 0d |eposit;.|.BEGIN .|
|00001a10| 09 66 6f 6e 74 20 3a 3d | 20 46 6f 6e 74 73 2e 64 |.font :=| Fonts.d|
|00001a20| 69 72 2e 54 68 69 73 28 | 22 43 6f 75 72 69 65 72 |ir.This(|"Courier|
|00001a30| 22 2c 20 31 31 20 2a 20 | 46 6f 6e 74 73 2e 70 6f |", 11 * |Fonts.po|
|00001a40| 69 6e 74 2c 20 7b 7d 2c | 20 46 6f 6e 74 73 2e 6e |int, {},| Fonts.n|
|00001a50| 6f 72 6d 61 6c 29 3b 0d | 09 6c 61 62 65 6c 73 20 |ormal);.|.labels |
|00001a60| 3a 3d 20 22 73 70 f7 2f | 37 38 39 2a 34 35 36 2d |:= "sp./|789*456-|
|00001a70| 31 32 33 2b 43 30 b1 5e | 22 0d 45 4e 44 20 20 4f |123+C0.^|".END  O|
|00001a80| 62 78 43 61 6c 63 2e 0d | 82 f1 54 65 78 74 43 6f |bxCalc..|..TextCo|
|00001a90| 6e 74 72 6f 6c 6c 65 72 | 73 2e 53 74 64 43 74 72 |ntroller|s.StdCtr|
|00001aa0| 6c 44 65 73 63 00 f1 54 | 65 78 74 43 6f 6e 74 72 |lDesc..T|extContr|
|00001ab0| 6f 6c 6c 65 72 73 2e 43 | 6f 6e 74 72 6f 6c 6c 65 |ollers.C|ontrolle|
|00001ac0| 72 44 65 73 63 00 f1 43 | 6f 6e 74 61 69 6e 65 72 |rDesc..C|ontainer|
|00001ad0| 73 2e 43 6f 6e 74 72 6f | 6c 6c 65 72 44 65 73 63 |s.Contro|llerDesc|
|00001ae0| 00 f1 43 6f 6e 74 72 6f | 6c 6c 65 72 73 2e 43 6f |..Contro|llers.Co|
|00001af0| 6e 74 72 6f 6c 6c 65 72 | 44 65 73 63 00 f2 04 00 |ntroller|Desc....|
|00001b00| 00 00 00 00 00 00 14 00 | 00 00 00 00 00 00 09 00 |........|........|
|00001b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 82 f1 |........|........|
|00001b20| 54 65 78 74 52 75 6c 65 | 72 73 2e 53 74 64 52 75 |TextRule|rs.StdRu|
|00001b30| 6c 65 72 44 65 73 63 00 | f1 54 65 78 74 52 75 6c |lerDesc.|.TextRul|
|00001b40| 65 72 73 2e 52 75 6c 65 | 72 44 65 73 63 00 f2 03 |ers.Rule|rDesc...|
|00001b50| 00 00 00 00 00 00 00 ab | 00 00 00 07 00 00 00 a3 |........|........|
|00001b60| 00 00 00 00 00 00 83 f1 | 54 65 78 74 52 75 6c 65 |........|TextRule|
|00001b70| 72 73 2e 53 74 64 53 74 | 79 6c 65 44 65 73 63 00 |rs.StdSt|yleDesc.|
|00001b80| f1 54 65 78 74 52 75 6c | 65 72 73 2e 53 74 79 6c |.TextRul|ers.Styl|
|00001b90| 65 44 65 73 63 00 f2 07 | 00 00 00 00 00 00 00 00 |eDesc...|........|
|00001ba0| 00 00 00 08 00 00 00 5a | 00 00 00 00 00 00 00 82 |.......Z|........|
|00001bb0| f1 54 65 78 74 52 75 6c | 65 72 73 2e 41 74 74 72 |.TextRul|ers.Attr|
|00001bc0| 69 62 75 74 65 73 44 65 | 73 63 00 f2 04 00 00 00 |ibutesDe|sc......|
|00001bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 24 00 00 00 |........|....$...|
|00001be0| 00 01 00 00 00 00 00 00 | 00 00 20 a3 5a 00 00 00 |........|.. .Z...|
|00001bf0| 00 00 7c be 01 00 38 63 | 00 00 01 00 00 00 01 00 |..|...8c|........|
|00001c00| 00 00 00 00 00 00 82 f2 | 0d 00 00 00 00 00 00 00 |........|........|
|00001c10| 00 00 00 00 00 00 00 00 | 22 00 00 00 00 00 00 00 |........|".......|
|00001c20| 00 01 00 00 00 00 48 65 | 6c 76 65 74 69 63 61 00 |......He|lvetica.|
|00001c30| 7c be 01 00 00 00 00 00 | 90 01 00 00 00 00 00 00 ||.......|........|
|00001c40| 00 00 00 00 00 00 e0 8c | 01 00 e0 8c 01 00 00 30 |........|.......0|
|00001c50| 5c 00 e0 b9 3b 3e 82 f1 | 44 6f 63 75 6d 65 6e 74 |\...;>..|Document|
|00001c60| 73 2e 43 6f 6e 74 72 6f | 6c 6c 65 72 44 65 73 63 |s.Contro|llerDesc|
|00001c70| 00 f2 10 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c80| 00 00 08 00 00 00 00 00 | 00 00 00 09 00 00 00 00 |........|........|
|00001c90| f8 1b 73 00 7c f9 a2 00 | 80 fc 0a 00 80 fc 0a 00 |..s.|...|........|
|00001ca0| a0 9f 65 00 fc fc 97 00 | 00 00 00 00 00 00 00 00 |..e.....|........|
|00001cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d00| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00001d10| 00 00 b2 f7 04 43 6f 64 | 65 f7 01 00 00 00 00 03 |.....Cod|e.......|
|00001d20| 00 00 b3 6a ac 47 f8 4f | ad 88 07 d6 00 00 00 00 |...j.G.O|........|
|00001d30| 04 43 61 6c 63 83 02 00 | 00 00 50 61 72 74 53 49 |.Calc...|..PartSI|
|00001d40| 54 21 00 00 00 00 00 00 | 00 00 00 00 48 88 00 00 |T!......|....H...|
|00001d50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d70| 00 00 ae 04 81 ac 00 00 | 00 00 00 00 01 3e 00 00 |........|.....>..|
|00001d80| 00 31 00 0e 01 40 01 48 | 01 00 01 04 00 80 02 10 |.1...@.H|........|
|00001d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001db0| 09 00 00 00 b2 f7 03 44 | 74 66 02 00 00 00 66 64 |.......D|tf....fd|
|00001dc0| 72 70 4d 41 43 53 81 00 | 01 6c 01 00 00 00 00 00 |rpMACS..|.l......|
|00001dd0| b6 35 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.5......|........|
|00001de0| 01 fe 00 00 22 00 ad 89 | 74 da ad 89 75 13 00 00 |...."...|t...u...|
|00001df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e00| 00 00 00 08 00 3c 00 05 | 01 db 01 f8 00 00 01 00 |.....<..|........|
|00001e10| 00 00 01 0c 00 00 00 0c | 00 00 00 32 00 5b df 78 |........|...2.[.x|
|00001e20| 12 5e 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.^.....2|..WNSP..|
|00001e30| 00 0a 00 01 ff ff 00 00 | 00 00 00 5b e2 9c 00 00 |........|...[....|
|00001e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+